Cream of the Crop 20/Cream of the Crop 20 (Terry Blount) (1996).iso/os2/bind493a.zip/bin/copyright

Text File | 1993-07-06 | 5KB | 148 lines

#!/usr/bin/perl

# copyright - replace copyright in specified files
# vix 17apr93 [fixed truncation bug; only edit writable files]
# vix 31mar93 [added individual dating per file]
# vix 02feb93 [original, for bind 4.9]

## ++Copyright++
## -
## Copyright (c)
##    The Regents of the University of California.  All rights reserved.
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
## 1. Redistributions of source code must retain the above copyright
##    notice, this list of conditions and the following disclaimer.
## 2. Redistributions in binary form must reproduce the above copyright
##    notice, this list of conditions and the following disclaimer in the
##    documentation and/or other materials provided with the distribution.
## 3. All advertising materials mentioning features or use of this software
##    must display the following acknowledgement:
##     This product includes software developed by the University of
##     California, Berkeley and its contributors.
## 4. Neither the name of the University nor the names of its contributors
##    may be used to endorse or promote products derived from this software
##    without specific prior written permission.
##
## THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
## ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
## ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
## FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
## DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
## OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
## OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
## SUCH DAMAGE.
## -
## Portions Copyright (c) 1993 by Digital Equipment Corporation.
##
## Permission to use, copy, modify, and distribute this software for any
## purpose with or without fee is hereby granted, provided that the above
## copyright notice and this permission notice appear in all copies, and that
## the name of Digital Equipment Corporation not be used in advertising or
## publicity pertaining to distribution of the document or software without
## specific, written prior permission.
##
## THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
## WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
## OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
## CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
## DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
## PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
## ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
## SOFTWARE.
## -
## --Copyright--

$BeginMarker = '\+\+Copyright\+\+';
$EndMarker = '\-\-Copyright\-\-';
@Copyright = <STDIN>;
print STDERR "copyright from standard input is $#Copyright lines\n";

foreach (@ARGV) {
    ©right($_);
}

exit 0;

sub copyright {
    local($file) = @_;
    local($_, $found, $indent, $in, @file);

    if (! -w $file) {
        print STDERR "$file: not writable\n";
        return;
    }
    if (!open(file, "+<$file")) {
        print STDERR "$file: $!\n";
        return;
    }
    $found = 0;
    $in = 0;
    while (<file>) {
        if (/$BeginMarker/o) {
            if ($in) {
                print STDERR
                  "$file: nested '$BeginMarker'\n";
                return;
            }
            $indent = $`;
            $dates = $';
            $dates =~ s/^\s+//;
            $dates =~ s/\s+$//;
            $found++;
            $in = 1;
            push(@file, $_);
            foreach (@Copyright) {
                if (/XYZZY/o) {
                    push(@file, $indent.$`.$dates.$');
                } else {
                    push(@file, $indent.$_);
                }
            }
        } elsif (/$EndMarker/o) {
            if (!$in) {
                print STDERR
                  "$file: mismatched '$EndMarker'\n";
                return;
            }
            if ($` ne $indent) {
                print STDERR
                  "$file: indent differs: '$`' vs '$indent'\n";
                return;
            }
            push(@file, $_);
            $in = 0;
        } else {
            push(@file, $_) unless $in;
        }
    }
    if ($in) {
        print STDERR
          "$file: mismatched '$BeginMarker'\n";
        return;
    }
    if (!$found) {
        print STDERR
          "$file: no '$BeginMarker' or '$EndMarker' found\n";
        return;
    }
    print STDERR "$file: $found copyrights found\n";
    if (!seek(file, 0, 0)) {
        print STDERR
          "$file: seek(f,0,0): $!";
        return;
    }
    print file @file;
    truncate(file, tell(file));
    if (!close(file)) {
        print STDERR
          "$file: close(f): $! (may be corrupt now)\n";
        return;
    }
}